home *** CD-ROM | disk | FTP | other *** search
/ Logiciels PC Special 3 / Logiciel PC - Hors-Serie 3.iso / Logs / micros / ql / outils / qltoolsq / source / docs / qlcp < prev    next >
Text File  |  1995-12-03  |  398b  |  29 lines
  1. #!/usr/bin/perl
  2. # Perl script to copy all files from a QL DD disk under Linux
  3. # _ in QDOS file names are changed to .
  4. # usage : qlcp device
  5.  
  6. $dev = $ARGV[0];
  7.  
  8. open (QL, "qltools $dev -s |");
  9. $n = 0;
  10. while (<QL>)
  11. {
  12.     chomp;
  13.     $unx = $_;
  14.     $unx =~ s/_/\./g;
  15.  
  16.     if(substr($unx,0,1) eq " ")
  17.     {
  18.         print "skipping .. ";
  19.  
  20.     }
  21.     else
  22.     {
  23.         system "qltools $dev $_ >$unx";
  24.     }
  25.     print "$unx\n";
  26. }
  27. close (QL);
  28.  
  29.